home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Tiger Disk 5
/
Tiger_Disk_005_19xx_Tiger-Crew-Disk_de_Side_B.d64
/
info diashow-gen
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2023-02-26
|
2KB
|
58 lines
1 goto10
2 print" >>> [194][201][212][212][197] [212][193][211][212][197] [196][210][213][197][195][203][197][206] ! <<<":return
3 poke198,0:wait198,1:poke198,0
4 fort=4to22:poke781,t:sys59903:next:print"":return
10 poke53280,0:poke53281,0:poke646,7:printchr$(8);chr$(14);"[147]";
19 print"[150] ";
20 print" [153][196]iashow-[199]enerator-[201]nfo [[212][195]][150] ";
21 print" "
30 print"[155][196]er [196][201][193][211][200][207][215]-[199][197][206][197][210][193][212][207][210] ist [196][193][211] [208]rogramm,"
40 print"mit dem [196]u aus einer [196]isk mit":print" [203][207][193][204][193]-[208][201][195][212][213][210][197][211]"
50 print"eine '[196][201][193][211][200][207][215]-[196][201][211][203]' machen kannst."
60 print"[196]a die [194]edienung wirklich [197][201][206][198][193][195][200][211][212] ist,"
70 print"gibt's auch nur 'n ganz kleines [194][193][211][201][195]-":print"[201]nfo -"
80 print"- ganz ohne [204][207][199][207], [211][207][213][206][196] etc..."
90 gosub2:gosub3
100 print"[206]ach dem [204]aden und [211]tarten des [208]rogramms"
110 print"erscheint eine [193]rt '[201]ntro-[194]ild'."
120 print"[200]ier wirst [196]u durch einen kleinen":print" '[211]ound-[197]ffekt'"
130 print"darauf aufmerksam gemacht, dass das":print"[208]rogramm bereit ist."
140 print"[202]etzt nimmst [196]u die [196]isk mit dem [208]roggi"
150 print"aus dem [204]aufwerk und legst die [196]isk"
160 print"mit den [203][207][193][204][193]-[208]ictures ein."
170 gosub3
180 print"[215]enn [196]u diese [211]chwerstarbeit erfolgreich"
190 print"bewaeltigt hast, drueckst [196]u <[211][208][193][195][197]>."
200 print"[202]etzt wird vom [208]rogramm das [196][201][210][197][195][212][207][210][217]"
210 print"eingelesen und angezeigt."
220 print"[197]rscheint ein [196]irectory-[197]intrag, der"
230 print"[203][197][201][206] [203][207][193][204][193]-[194][201][204][196] ist (oder ein [194]ild, das"
240 print"[196]u nicht in der [196]ia-[211]how haben willst),"
250 print"so drueckst [196]u entschieden '[206]'."
260 gosub3
270 print"[193]nsonsten drueckst [196]u '[217]' (fuer 'ja').
280 [153]"atnuf diese atnrt 'arbeitest' str$u str$ich"
290 [153]"durch das str$irectory..."
300 [153]"(NULL)ind alle str$ir.-valintraege bearbeitet,"
310 [153]"springt das (NULL)rogramm zurueck in's":[153]" peekcloseatnclose(NULL)closeright$closelen."
320 [141]3
330 [153]"mid$etzt kannst str$u mit"
340 [153]" (NULL)atn(NULL)val 'str$right$atn-(NULL)left$(NULL)(NULL)',8,1"
350 [153]"(natuerlich kannst str$u jeden str$ir belie-"
360 [153]"benden (NULL)amen anstatt str$right$atn-(NULL)left$(NULL)(NULL) waehlen..)
370 print"das [196][201][193]-[211][200][207][215]-[208]rogramm auf der [196]isk":print"[211][193][214][197]n."
380 gosub3
390 print"[215]enn [196]u dann von der [196]isk das [208]rogramm"
400 print"laedtst und mit '[210][213][206]' startest,"
405 print"werden die einzelnen [194]ilder angezeigt."
410 print"[202]eweils nach [212]astendruck folgt das" "
420 [153]"naechste peekild."
430 [153]"(NULL)ind alle peekilder durch, beginnt die"
440 [153]"'(NULL)left$(NULL)(NULL)' von vorne..."
450 [141]3
460 [153]" str$closeatnclose(NULL)close (NULL)closeatnclose(NULL) atnclose(NULL)close(NULL)closevalclose(NULL)close!"
470 [129]x[178]1[164]1000:[130]:[153]"(NULL)nd nun viel (NULL)pass beim (NULL)usammen-"
480 [153]"stellen str$einer eigenen str$right$atn-(NULL)left$(NULL)(NULL)(NULL)!!!"
490 [153]" (NULL)closeright$closechr$closevalclose(NULL)close- lenclose(NULL)closevalclose(NULL)"
500 [151]781,23:[158]59903:[128]